BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Me-Mz/MH Checking & Savings v2.4d.cpt/Checking & Savings Demo2.4/background_4928.txt

Text File | 1988-02-27 | 43KB | 1,602 lines

-- background: 4928 from stack: in.4
-- bmap block id: 24113
-- flags: 4000
-- background id: 0
-- name: a
----- HyperTalk script -----
on copyright
  -- THESE SCRIPTS ARE COPYRIGHTED BY MAC HELP COMPANY
  -- CONTACT AUTHOR FOR PERMISSION TO USE THESE SCRIPTS
end copyright

on "GetCleared"
  Global AcctNum, Balance
  set numberformat to 0.00

  put empty into card field "Clear YTD" of card "a"
  put empty into card field "Clear YTD2" of card "a"

  set lockscreen to false
  put "Sorting..." into card field "Wait Pop"
  show card field "Wait Pop"
  set lockscreen to true
  set cursor to 4
  put 0 into card field "Clear 7"
  put 0 into card field "Clear 6"
  put 0 into card field "Clear 5"
  put Balance into card field "Clear 4"
  put 0 into card field "Clear 3"
  put 0 into card field "Clear 2"

  sort by field "Transaction" & line 2 of field "Card Date"
  go to card "a" of background "a"

  set lockscreen to false
  put "Looking..." into card field "Wait Pop"
  set lockscreen to true
  set cursor to 4
  hide card field "Wait Pop"

  put AcctNum && "•Activity Card" into ThisString
  --ask "ThisString" with thisstring
  find word ThisString
  if the result is "Not Found" then
    answer "Sorry, but all activity for this account has been cleared!"
    go to card "a" of background "a"
    exit "GetCleared"
  end if

  put the ID of this card into FlagCardID
  set numberformat to 0.00
  put 0 into LineNum
  put 0 into CreditOutstanding
  put 0 into DebitOutstanding
  put 0 into CreditCleared
  put 0 into DebitCleared

  repeat forever
    add 1 to LineNum
    put word 2 of background field "Name of Card" into Trans
    if background field "VOID" is "VOID" then
      put Trans & "-VOIDED" into Trans
      put 0 into Credit
      put 0 into Debit
    else
      put background field "Credit" into Credit
      if Credit is empty then put 0 into Credit
      put background field "Debit" into Debit
      if Debit is empty then put 0 into Debit
    end if
    put Credit - Debit into amount
    get background field "Cleared"
    if it is empty then put " " into it
    put it into Cleared

    put "                               " into line LineNum of card field "Clear YTD" of card "a"
    put Cleared into char 1 of line LineNum of card field "Clear YTD" of card "a"
    put Trans into char 5 of line LineNum of card field "Clear YTD" of card "a"
    put Amount into char 28 of line LineNum of card field "Clear YTD" of card "a"

    get the ID of this Card
    put it into line LineNum of card field "Clear YTD2" of card "a"

    If cleared is "‚àö" then
      add Credit to CreditCleared
      add Debit to DebitCleared
      --add Credit to card field "Clear 3" of card "a"
    else
      add Credit to CreditOutstanding
      add Debit to DebitOutstanding
      --add Credit to card field "Clear 2" of card "a"
    end if

    go to next card of this background
    put AcctNum && "•Activity Card" into ThisString
    find word ThisString
    if the ID of this card is FlagCardID then exit repeat

  end repeat

  go to card "a" of background "a"
  set lockscreen to false
  ask "Please enter the your account balance as is indicated on " & "your statement."
  set numberformat to 0.00
  set lockscreen to true
  if it is empty then put 0 into it
  add 0 to it
  put it into card field "Clear 1"
  put CreditOutstanding into card field "Clear 2"
  put DebitOutstanding into card field "Clear 6"
  put CreditCleared into card field "Clear 3"
  put DebitCleared into card field "Clear 7"

  send "CalculateCleared" to background
  click at the loc of card field "Clear 1"
  click at the loc of card field "Clear 1"

  set lockscreen to false
end "GetCleared"


on "GetChecks"
  Global AcctNum
  set numberformat to 0.00

  put empty into card field "Select Checks" of card "a"
  put empty into card field "Clear YTD2" of card "a"

  set lockscreen to false
  put "Sorting..." into card field "Wait Pop"
  show card field "Wait Pop"
  set lockscreen to true
  set cursor to 4
  sort by field "Transaction" --and line 2 of field "Date"
  go to card "a" of background "a"

  set lockscreen to false
  put "Looking..." into card field "Wait Pop"
  set lockscreen to true
  set cursor to 4
  hide card field "Wait Pop"

  put AcctNum && "•Activity Card" into ThisString
  find word ThisString
  if the result is "Not Found" then
    answer "Sorry, but all activity for this account has been cleared!"
    go to card "a" of background "a"
    exit "Getchecks"
  end if

  put the ID of this card into FlagCardID
  set numberformat to 0.00
  put 0 into LineNum

  repeat forever
    put word 2 of background field "Name of Card" into Trans
    if Trans contains "Check-" then
      add 1 to LineNum
      if background field "VOID" is "VOID" then
        put Trans & "-VOIDED" into Trans
        put 0 into Credit
        put 0 into Debit
      else
        put background field "Credit" into Credit
        if Credit is empty then put 0 into Credit
        put background field "Debit" into Debit
        if Debit is empty then put 0 into Debit
      end if
      put background field "Pay To" into PayTo
      put Credit - Debit into amount
      get background field "printed"
      if it is empty then
        put " " into it
      else
        put "•" into it
      end if
      put it into Cleared

      put "                                                        " into line LineNum of card field "select checks" of card "a"
      put Cleared into char 1 of line LineNum of card field "select checks" of card "a"
      put Trans into char 5 of line LineNum of card field "select checks" of card "a"
      put Amount into char 22 of line LineNum of card field "select checks" of card "a"
      put PayTo into char 33 of line LineNum of card field "select checks" of card "a"

      get the ID of this Card
      put it into line LineNum of card field "Clear YTD2" of card "a"
    end if

    go to next card of this background
    put AcctNum && "•Activity Card" into ThisString
    find word ThisString
    if the ID of this card is FlagCardID then exit repeat
  end repeat

  go to card "a" of background "a"
  set lockscreen to false
  set lockscreen to false
end "GetChecks"

on "CalculateCleared"
  Global Balance
  set numberformat to 0.00

  set cursor to 4
  set lockscreen to true
  add 0 to card field "Clear 1"

  put Balance into Outstanding
  subtract the value of card field "Clear 1" from outstanding
  subtract the value of card field "Clear 2" from outstanding
  add the value of card field "Clear 6" to outstanding

  put Outstanding into card field "Clear 5"

end "CalculateCleared"

on TestOpenCard
  Global LimitCards1, LimitCards2, AcctNum, TransName, direction
  Global FlagCardID

  put the ID of this card into ReturnID
  if ReturnID is "Card ID 5226" then exit TestOpenCard

  put False into Flag
  if LimitCards1 is not empty then
    get background field "Account Number"
    if it is AcctNum then put True into Flag
    repeat until Flag
      if direction is "previous" then
        visual effect scroll right
        go to previous card of this background
      else
        visual effect scroll left
        go to next card of this background
      end if
      get the ID of this card
      if it is FlagCardID then
        answer "No other entries were found for Account:  " & LimitCards1
        go to ReturnID
        exit TestOpenCard
      end if
      get background field "Account Number"
      if it is AcctNum then put True into Flag
    end repeat
  end if

  put False into Flag
  if LimitCards2 is not empty then
    get background field "Name of Card"
    if it contains TransName then put True into Flag

    repeat until Flag

      if direction is "previous" then
        visual effect scroll right
        go to previous card of this background
      else
        visual effect scroll left
        go to next card of this background
      end if

      get the ID of this card
      if it is FlagCardID then
        answer "No other entries of type:  " & LimitCards2 & " found!" with "OK" or "All Types"
        if it is "All Types" then
          put empty into LimitCards2
          set the hilite of background button ID 54 to false
        else
          go to ReturnID
        end if
        exit TestOpenCard
      end if
      get background field "Name of Card"
      if it contains TransName then put True into Flag
    end repeat
  end if

end TestOpenCard

on "TestTransaction"
  Global Transaction, GivingDate, ShortGivingDate, NewCardName
  Global DoNewCard, AcctNum, TransName, LastCheckNumber, ExitFlag

  put empty into card field "Next Check"
  set name of card button id 73 to "Transaction:  " & Transaction



  if Transaction is "Income Receipt" then
    put "Inc-" into TransName
    -- Do stuff for income
  end if

  if Transaction is "Account Deposit" then put "Dep-" into TransName
  if Transaction is "Account Withdrawal" then put "With-" into TransName
  if Transaction is "Account Interest" then put "Int-" into TransName
  if Transaction is "Account Fee" then put "Fee-" into TransName
  if Transaction is "ATM / EFT / Electronic" then put "EFT-" into TransName


  if Transaction is "Write Check" then
    put "Check-" into TransName
    if LastCheckNumber < 1 then
      set numberformat to 0000000
      ask "Enter the beginning check number for this account?"
      if it is empty then exit "TestTransaction"
      put the value of it into LastCheckNumber
      subtract 1 from LastCheckNumber
    end if
    put LastCheckNumber+1 into card field "Next Check"
  else
  end if

  put "Only view " & TransName & " Transactions" into ThisName
  set name of background button ID 54 to ThisName
  put Transaction into line 3 of card field "Statistics"
  put TransName into line 4 of card field "Statistics"

  if Transaction is "Write Check" then
    send closefield to card field "Next Check"
    click at the loc of card field "Pay To"
  else
    click at the loc of card field "Amount"
  end if

end "TestTransaction"


on "ResetFields"
  put empty into card field "Next Check"
  put empty into card field "Pay To"
  put empty into card field "Amount"
  put empty into card field "Memo"
  put empty into card field id 47
  put empty into card field id 48
  put empty into card field id 49
  put empty into card field id 50
  put "Miscellaneous" into card field id 51
  put empty into card field id 52
  put empty into card field id 53
  put empty into card field id 54
  put empty into card field id 55
  put empty into card field id 56

end "ResetFields"


-- part 1 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=158 top=210 right=326 bottom=361
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  Global Action, Amount
  set numberformat to 0.00
  hide background button id 1
  if Action is "Add" then
    add Amount to background field "Sub Amount"
  else
    subtract Amount from background field "Sub Amount"
  end if
end mouseUp



-- part 21 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=100 top=280 right=297 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Memo


-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=121 top=243 right=260 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: Debit
----- HyperTalk script -----
on mouseUp
  Global Balance, BeginCreditField
  set numberformat to 0.00

  put 31 into BeginCreditField
  -- 31 to 47

  put the ID of this Card into ThisCardID
  put background field "Debit" into Debit

  if Debit is empty then
    answer "Sorry, but there is nothing to change.  " & "You could void this transaction and re-enter it properly."
    exit mouseUp
  end if

  ask "Enter new Amount:" with Debit
  if it is empty then exit mouseUp
  set cursor to 4
  add 0 to it
  put it into NewAmount

  put the value of Debit - the value of NewAmount into correction


  put background field "Account Number" into Account
  put card field "Total Accounts" of card "a" into AccountTotal

  repeat with i = 1 to AccountTotal
    put char 30 to 46 of line i of card field "Summary" of card "a" into Temp
    if Temp is Account then
      put i into LineNumber
      exit repeat
    end if
    if i = AccountTotal then
      answer "Sorry, but this card references the account:  " & Account & " which no longer exists!"
      exit mouseUp
    end if
  end repeat

  go to ThisCardID
  set lockscreen to true
  --send "UnCreditSubs2" to background
  add correction to Balance
  put Balance into last word of line LineNumber of card field "Summary" of card "a"

  go to ThisCardID
  --subtract correction from background field "Sub Total5"
  --send "CreditSubs2" to background

  go to ThisCardID
  set lockscreen to false
  put NewAmount into background field "Debit"
  if background field "Transaction" contains "Write Check" then
    put NewAmount into background field "Debit"
  end if


end mouseUp


-- part 24 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=121 top=259 right=276 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: Credit
----- HyperTalk script -----
on mouseUp
  Global Balance, BeginCreditField
  set numberformat to 0.00

  put 31 into BeginCreditField
  -- 31 to 47

  put the ID of this Card into ThisCardID
  put background field "Credit" into credit

  if credit is empty then
    answer "Sorry, but there is nothing to change.  " & "You could void this transaction and re-enter it properly."
    exit mouseUp
  end if

  ask "Enter new Amount:" with credit
  if it is empty then exit mouseUp
  set cursor to 4
  add 0 to it
  put it into NewAmount

  put the value of credit - the value of NewAmount into correction


  put background field "Account Number" into Account
  put card field "Total Accounts" of card "a" into AccountTotal

  repeat with i = 1 to AccountTotal
    put char 30 to 46 of line i of card field "Summary" of card "a" into Temp
    if Temp is Account then
      put i into LineNumber
      exit repeat
    end if
    if i = AccountTotal then
      answer "Sorry, but this card references the account:  " & Account & " which no longer exists!"
      exit mouseUp
    end if
  end repeat

  go to ThisCardID
  set lockscreen to true
  --send "UnCreditSubs2" to background
  add correction to Balance
  put Balance into last word of line LineNumber of card field "Summary" of card "a"

  go to ThisCardID
  --subtract correction from background field "Sub Total5"
  --send "CreditSubs2" to background

  go to ThisCardID
  set lockscreen to false
  put NewAmount into background field "Credit"


end mouseUp


-- part 26 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=35 top=222 right=240 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: Transaction


-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=252 top=142 right=205 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 70
-- style flags: 2304
-- line height: 70
-- part name: Void


-- part 28 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=9 top=201 right=221 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 18
-- part name: Card Date
----- HyperTalk script -----
on mouseUp1
  get background field "Card Date"

  if it is empty then
    answer "Sorry, but there is nothing to change.  " & "You could void this transaction and re-enter it properly."
    exit mouseUp
  end if

  convert it to short date
  ask "Enter the new date:" with it
  if it is empty then exit mouseUp

  put it into ThisDate

  convert ThisDate to long date
  put ThisDate into line 1 of background field "Card Date"
  convert ThisDate to seconds
  put ThisDate into line 2 of background field "Card Date"

  if background field "Transaction" contains "Write Check" then
    convert ThisDate to dateItems
    delete char 1 to 2 of ThisDate
    put item 1 of ThisDate into background field "CheckDate2"
    put item 2 of ThisDate & "/" & item 3 of ThisDate into background field "CheckDate1"
  end if

end mouseUp1


-- part 29 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=402 top=39 right=55 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Card Date2


-- part 30 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=394 top=42 right=65 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Check Number
----- HyperTalk script -----
on mouseUp
  set numberformat to 0000000
  get background field "Check Number"

  if it is empty then
    answer "Sorry, but there is nothing to change.  " & "You could void this transaction and re-enter it properly."
    exit mouseUp
  end if

  ask "Enter the corrected check Number (Remember to change the " & "other check numbers which are incorrect):" with it
  if it is empty then exit mouseUp
  add 0 to it
  put it into NewNumber

  get background field "Name of Card"
  put "Check-" before last word of it
  set the name of this card to it
  put it into background field "Name of Card"
  put NewNumber into background field "Check Number"

end mouseUp


-- part 31 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=242 top=210 right=224 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Name1


-- part 32 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=242 top=223 right=237 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Name2


-- part 33 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=242 top=236 right=250 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Name3


-- part 34 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=242 top=249 right=263 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Name4


-- part 35 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=242 top=262 right=276 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Name5


-- part 36 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=378 top=210 right=224 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Total1
----- HyperTalk script -----
on mouseUp
  Global TransName
  set numberformat to 0.00
  set lockscreen to true
  set cursor to 4

  put 36 into ThisID
  put background field ID ThisID into ThisAmount
  if ThisAmount is empty then exit mouseUp
  put ThisAmount into OldAmount

  put TransName into RealTransName

  put "UnCorrect" into TransName
  send "UnCreditSubs2" to background

  ask "Enter the corrected amount?" with ThisAmount
  if it is empty then put OldAmount into it
  set lockscreen to true
  put it into ThisAmount
  add 0 to ThisAmount
  put ThisAmount into background field ID ThisID

  put "DoCorrect" into TransName
  send "CreditSubs2" to background

  put RealTransName into TransName
end mouseUp


-- part 37 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=378 top=223 right=237 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Total2
----- HyperTalk script -----
on mouseUp
  Global TransName
  set numberformat to 0.00
  set lockscreen to true
  set cursor to 4

  put 37 into ThisID
  put background field ID ThisID into ThisAmount
  if ThisAmount is empty then exit mouseUp
  put ThisAmount into OldAmount

  put TransName into RealTransName

  put "UnCorrect" into TransName
  send "UnCreditSubs2" to background

  ask "Enter the corrected amount?" with ThisAmount
  if it is empty then put OldAmount into it
  set lockscreen to true
  put it into ThisAmount
  add 0 to ThisAmount
  put ThisAmount into background field ID ThisID

  put "DoCorrect" into TransName
  send "CreditSubs2" to background

  put RealTransName into TransName
end mouseUp


-- part 38 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=378 top=236 right=250 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Total3
----- HyperTalk script -----
on mouseUp
  Global TransName
  set numberformat to 0.00
  set lockscreen to true
  set cursor to 4

  put 38 into ThisID
  put background field ID ThisID into ThisAmount
  if ThisAmount is empty then exit mouseUp
  put ThisAmount into OldAmount

  put TransName into RealTransName

  put "UnCorrect" into TransName
  send "UnCreditSubs2" to background

  ask "Enter the corrected amount?" with ThisAmount
  if it is empty then put OldAmount into it
  set lockscreen to true
  put it into ThisAmount
  add 0 to ThisAmount
  put ThisAmount into background field ID ThisID

  put "DoCorrect" into TransName
  send "CreditSubs2" to background

  put RealTransName into TransName
end mouseUp


-- part 39 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=378 top=249 right=263 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Total4
----- HyperTalk script -----
on mouseUp
  Global TransName
  set numberformat to 0.00
  set lockscreen to true
  set cursor to 4

  put 39 into ThisID
  put background field ID ThisID into ThisAmount
  if ThisAmount is empty then exit mouseUp
  put ThisAmount into OldAmount

  put TransName into RealTransName

  put "UnCorrect" into TransName
  send "UnCreditSubs2" to background

  ask "Enter the corrected amount?" with ThisAmount
  if it is empty then put OldAmount into it
  set lockscreen to true
  put it into ThisAmount
  add 0 to ThisAmount
  put ThisAmount into background field ID ThisID

  put "DoCorrect" into TransName
  send "CreditSubs2" to background

  put RealTransName into TransName
end mouseUp


-- part 40 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=378 top=262 right=276 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Total5
----- HyperTalk script -----
on mouseUp
  Global TransName
  set numberformat to 0.00
  set lockscreen to true
  set cursor to 4

  put 40 into ThisID
  put background field ID ThisID into ThisAmount
  if ThisAmount is empty then exit mouseUp
  put ThisAmount into OldAmount

  put TransName into RealTransName

  put "UnCorrect" into TransName
  send "UnCreditSubs2" to background

  ask "Enter the corrected amount?" with ThisAmount
  if it is empty then put OldAmount into it
  set lockscreen to true
  put it into ThisAmount
  add 0 to ThisAmount
  put ThisAmount into background field ID ThisID

  put "DoCorrect" into TransName
  send "CreditSubs2" to background

  put RealTransName into TransName
end mouseUp


-- part 41 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=29 top=162 right=184 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VOID
----- HyperTalk script -----
on mouseUp
  Global BeginCreditField, Balance, Words, LineNumber1, TransName
  set numberformat to 0.00

  if the optionKey is down then
    put "If this transaction was a mistake, click on the void" && "button.  You can void and unvoid this transaction as often" && "as you desire.  It will credit or debit you account as" && "necessary.  You can mark it as cleared when you choose to" && "reconcile your bank statement and delete it then if desired." into String
    put the name of the target into ThisItem
    HelpMsg2 String, ThisItem
    exit mouseUp
  end if

  put 31 into BeginCreditField
  -- 31 to 47
  put the ID of this Card into ThisCardID
  set lockscreen to true
  set cursor to 4

  put background field "Account Number" into Account
  put card field "Total Accounts" of card "a" into AccountTotal

  repeat with i = 1 to AccountTotal
    put char 30 to 46 of line i of card field "Summary" of card "a" into Temp
    if Temp is Account then
      put i into LineNumber
      exit repeat
    end if
    if i = AccountTotal then
      answer "Sorry, but this card references the account:  " & Account & " which no longer exists!"
      exit mouseUp
    end if
  end repeat



  put 0 into Amount
  if background field "Credit" is not empty then
    get background field "Credit"
    add it to Amount
  end if
  if background field "Debit" is not empty then
    get background field "Debit"
    Subtract it from Amount
  end if

  put background field "Void" into HowCredit
  put TransName into RealTransName
  if HowCredit is empty then -- ADD VALUES BACK IN TO BALANCE, PUT VOID
    put "DoVoid-" into TransName
    subtract Amount from Balance
    put "VOID" into background field "Void"
    put Balance into last word of line LineNumber of card field "Summary" of card "a"
    send "UnCreditSubs2" to background
  else
    put "UnVoid-" into TransName
    put empty into background field "Void"
    add Amount to Balance
    put Balance into last word of line LineNumber of card field "Summary" of card "a"
    send "CreditSubs2" to background
  end if
  put RealTransName into TransName

  go to ThisCardID
  set lockscreen to false

end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=463 top=309 right=342 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return to Main
----- HyperTalk script -----
on mouseUp
  Global LimitCards2

  --set the hilite of background button ID 54 to False
  --Put empty into LimitCards2
  go to card "a" of background "a"

end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=434 top=307 right=341 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  global LimitCards1, LimitCards2

  if the optionKey is down then
    put "This button will take you to the first transaction you" && "entered (or the first one sorted).  It will step you through" && "the transactions matching the currently selected account number." && " If you wish to step through all the account numbers, click off" && "the button 'Only View #####' at the top of one of the" && "transaction cards.    (When you select a different account number," && "this box automatically becomes checked.)" into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  set lockscreen to true

  put the ID of this card into ThisCardID
  go to next card of this background
  put "•Activity Card" && LimitCards1 && LimitCards2 into ThisString
  set loc of message box to 20,-50
  put "Find word" & quote & ThisString & quote into message box
  hide message box
  set loc of message box to 20,300

  visual effect scroll left
  do message box
  --if the result is empty then exit repeat
  --if the ID of this card is ThisCardID then exit repeat

  set lockscreen to false

end mouseUp


on mouseUp1
  Global direction

  put "Next" into direction
  put the ID of this Card into FlagCardID

  visual effect scroll left

  set cursor to 4
  set lockscreen to true
  go to next card of this background
  send "TestOpenCard" to background
  set lockscreen to false

  --put "Card  " & the number of this card & " of " & --the number of cards into Temp
  --set the name of background button ID 56 to temp

end mouseUp1


-- part 46 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=403 top=307 right=341 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Preview
----- HyperTalk script -----
on mouseUp
  Global direction, FlagCardID

  if the optionKey is down then
    put "This button will take you to the last transaction you" && "entered (or the last one sorted).  It will step you through" && "the transactions matching the currently selected account number." && " If you wish to step through all the account numbers, click off" && "the button 'Only View #####' at the top of one of the" && "transaction cards.    (When you select a different account number," && "this box automatically becomes checked.)" into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  put the ID of this Card into FlagCardID

  put "Previous" into direction
  visual effect scroll right

  set cursor to 4
  set lockscreen to true
  go to previous card of this background
  send "TestOpenCard" to background
  set lockscreen to false

end mouseUp


-- part 50 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=34 top=2 right=17 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: Name of Card


-- part 53 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=14 top=2 right=19 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Only View: 243-2-28831......
----- HyperTalk script -----
on mouseUp
  Global AcctNum, LimitCards1

  if the optionKey is down then
    put "If this box is checked, you will only see transactions" && "matching this account number when you use the pointer arrows" && "at the bottom of the screen.  Unchecked will show transactions" && "for all of the account numbers." into String
    put the name of the target into ThisItem
    put the hilite of ThisItem into Lighted
    HelpMsg2 String, ThisItem
    if Lighted is true then
      set the hilite of ThisItem to False
    else
      set the hilite of ThisItem to True
    end if
    exit mouseUp
  end if

  if the hilite of background button ID 53 is True then
    Put AcctNum into LimitCards1
  else
    Put empty into LimitCards1
  end if

end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=14 top=16 right=33 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Only view Fee- Transactions
----- HyperTalk script -----
on mouseUp
  Global TransName, LimitCards2

  if the optionKey is down then
    put "If this box is checked, you will only see transactions" && "of type indicated. (Whatever the last transaction type was," && "i.e. Check-, Dep- for deposit etc.) when you use the pointer" && "arrows at the bottom of the screen.  Unchecked will show" && "all of the transaction types." into String
    put the name of the target into ThisItem
    put the hilite of ThisItem into Lighted
    HelpMsg2 String, ThisItem
    if Lighted is true then
      set the hilite of ThisItem to False
    else
      set the hilite of ThisItem to True
    end if
    exit mouseUp
  end if

  if the hilite of background button ID 54 is True then
    Put TransName into LimitCards2
  else
    Put empty into LimitCards2
  end if

end mouseUp



-- part 55 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=123 top=126 right=227 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 135
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: Wait Pop


-- part 57 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=27 top=281 right=297 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cleared
----- HyperTalk script -----
on mouseUp
  get background field "Cleared"
  if it is "‚àö"  then
    put "Are you sure you want to mark this transaction as NOT cleared?" into Phrase
    put empty into temp
    put "Not Cleared" into ans
  else
    put "Are you sure you want to mark this transaction as being cleared?" into Phrase
    put "‚àö" into temp
    put "Cleared" into ans
  end if
  answer Phrase with "Cancel" or ans

  if it is ans then  put temp into background field "Cleared"
end mouseUp


-- part 61 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=87 top=93 right=110 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Pay To
----- HyperTalk script -----
on mouseUp
  get background field "Pay To"

  if it is empty then
    answer "Sorry, but there is nothing to change.  " & "You could void this transaction and re-enter it properly."
    exit mouseUp
  end if

  ask "Enter new information to PAY TO:" with it
  if it is empty then exit mouseUp

  put it into background field "Pay To"

end mouseUp


-- part 63 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=253 top=120 right=137 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 117
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Number


-- part 64 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=380 top=91 right=108 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Debit2
----- HyperTalk script -----
on mouseUp
  Global Balance, BeginCreditField
  set numberformat to 0.00

  put 31 into BeginCreditField
  -- 31 to 47

  put the ID of this Card into ThisCardID
  put background field "Debit2" into debit2

  if debit2 is empty then
    answer "Sorry, but there is nothing to change.  " & "You could void this transaction and re-enter it properly."
    exit mouseUp
  end if

  ask "Enter new Amount:" with debit2
  if it is empty then exit mouseUp
  add 0 to it
  put it into NewAmount

  put the value of debit2 - the value of NewAmount into correction


  put background field "Account Number" into Account
  put card field "Total Accounts" of card "a" into AccountTotal

  repeat with i = 1 to AccountTotal
    put char 30 to 46 of line i of card field "Summary" of card "a" into Temp
    if Temp is Account then
      put i into LineNumber
      exit repeat
    end if
    if i = AccountTotal then
      answer "Sorry, but this card references the account:  " & Account & " which no longer exists!"
      exit mouseUp
    end if
  end repeat

  go to ThisCardID
  set lockscreen to true
  send "UnCreditSubs2" to background
  add correction to Balance
  put Balance into last word of line LineNumber of card field "Summary" of card "a"

  go to ThisCardID
  subtract correction from background field "Sub Total5"
  send "CreditSubs2" to background

  go to ThisCardID
  set lockscreen to false
  put NewAmount into background field "Debit2"
  put NewAmount into background field "Debit"


end mouseUp


-- part 65 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=25 top=41 right=88 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Check Address


-- part 66 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=265 top=49 right=64 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: CheckDate1


-- part 67 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=364 top=49 right=64 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: CheckDate2


-- part 69 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=47 top=310 right=331 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: activity card flag


-- part 71 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=368 top=305 right=340 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SuperFind: Chris Hostetter
----- HyperTalk script -----
on mouseUp
  -- Super Find, by Chris Hostetter
  -- Mac Help Co., 1800 East Market Street
  -- Long Beach, CA  90805, [phone]
  -- This script may be freely used in other stacks provided that:
  --    1.  You keep it in its entirety
  --          (you can use the (--) to turn any un-needed lines off)
  --    2.  You notify the author (see above)

  global  LastButton, searchstring, LastField
  get the selection
  if it is not empty then put it into SearchString

  if the optionKey is down then
    put "This advanced search button allows you to enter information" && "you wish to find.  It will take you to the card which has" && "the words (or the parts of the words) you enter (note: the" && "words don't have to be in the same order).  You can then" && "hit the carriage return to repeat the search over and over." && "If you hold the option key down while clicking OK, you can" && "be more specific about finding information in 1. the last" && "background field you clicked in (not always supported), and 2." && "whether you wish to find whole words, partial words, or the" && "characters that you entered." into String
    put the name of the target into ThisItem
    HelpMsg2 String, ThisItem
    exit mouseUp
  end if

  put the name of the target into ThisOne
  set hilite of thisOne to true

  put "Chars" into FindType
  put empty into SearchLimit
  ask "Find Word(s)?   Hold option key for limits." with SearchString
  set hilite of thisOne to false
  if it is empty then
    exit mouseUp
  end if
  put it into SearchString

  if the OptionKey is down then
    if LastField is not empty then
      Answer "Search for information in what field?" with "Cancel" or LastField or "Any Field"
      if it is "Cancel" Then
        exit mouseUp
      end if
      if it is LastField then
        put " in background field " & NumToChar(34) & it & NumToChar(34) into SearchLimit
      else
        put "" into SearchLimit
      end if
    end if
    Answer "Find " & FindType & " '" & Searchstring & "'" with "Begins With" or "Full Word" or "These Chars"
    if it is "Begins with" then put empty into FindType
    if it is "Full Word" then put "Word" into FindType
    if it is "These Chars" then put "Chars" into FindType

  end if


  set loc of message box to 20,-50
  put "Find" && FindType && Quote & SearchString & Quote & SearchLimit into message box
  hide message box
  set loc of message box to 20,300
  do message box
  if the result is "Not Found" then
    beep
    answer FindType && "'" & SearchString & "'  not found.  Search more?" with "No" or "Yes"
    if it is "Yes" then click at the loc of the name of the target
  end if
end mouseUp


-- part 83 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=327 top=305 right=341 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter
----- HyperTalk script -----
on mouseUp
  answer "Print this card?" with "Cancel" or "Print"
  if it is "CANCEL" then pass mouseUp

  open printing
  print this card
  close printing
end mouseUp


-- part 85 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=50 top=45 right=310 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Help Message Field
----- HyperTalk script -----
on mouseUp
  put the name of the target into thisField
  do "put empty into" && thisField
  hide thisField
end mouseUp


-- part 86 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=227 top=68 right=89 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 2304
-- line height: 18
-- part name: Printed
----- HyperTalk script -----
on mouseUp

  if background field "Debit2" is empty then
    beep
    answer "This is not a checking transaction!"
    exit mouseUp
  end if


  get background field "Printed"
  if it is "* printed *"  then
    put "Are you sure you want to mark this check as NOT printed?" into Phrase
    put empty into temp
    put "Not Printed" into ans
  else
    put "Are you sure you want to mark this check as being printed?" into Phrase
    put "* printed *" into temp
    put "Printed" into ans
  end if
  answer Phrase with "Cancel" or ans

  if it is ans then  put temp into background field "Printed"
end mouseUp